home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / patches / pgs3g1.lha / 3.0gUpdate / Macros.LHA / SetLessonDefaults.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-24  |  1KB  |  35 lines
  1. /* $VER: SetLessonDefaults.rexx 1.1 (24.03.95)
  2.    Copyright 1995 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. /* SAME OLD STUFF */
  6. OPTIONS RESULTS
  7. TRACE OFF
  8. ADDRESS COMMAND
  9. /* Make sure rexx support is opened */
  10. IF ~SHOW('L','rexxsupport.library') THEN
  11.    CALL ADDLIB('rexxsupport.library',0,-30)
  12.  
  13. ADDRESS 'PAGESTREAM'
  14.  
  15. /* Must save out user's current printing prefs and then reload them,
  16.    because loading a settings file will erase their print prefs */
  17. saveprintprefs file 't:lessonprint.prefs'
  18. loadsettings file 'pagestream3:macros/setlessondefaults.prefs'
  19. loadprintprefs file 't:lessonprint.prefs'
  20.  
  21. /* Allocate requester */
  22. allocarexxrequester '"Lesson Defaults"' 424 71
  23.     reqhandle=result
  24. /* Add gadgets */
  25. addarexxgadget reqhandle EXIT 177 54 70 label "_Ok"
  26.     addhandle=result
  27. addarexxgadget reqhandle TEXT 8 10 408 border none string "'You are now ready to do lessons 1, 2 or 5. Note'"
  28. addarexxgadget reqhandle TEXT 8 20 408 border none string "'that the features required for lessons 3 and 4 are'"
  29. addarexxgadget reqhandle TEXT 8 30 408 border none string "'not fully implemented in this version.'"
  30. doarexxrequester reqhandle
  31. freearexxrequester reqhandle
  32.  
  33. ADDRESS COMMAND
  34. 'delete t:lessonprint.prefs >NIL:'
  35.